home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MISC.SWG / 0014_REBOOT3.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  350b  |  20 lines

  1. {
  2. REYNIR STEFANSSON
  3.  
  4. For anyone wondering how to reboot a PClone from Within Turbo Pascal:
  5. The Inline code is a far jump to the restart vector at $FFFF:0.
  6. }
  7.  
  8. Procedure ColdStart;
  9. begin
  10.    MemW[$40:$72] := 0;
  11.    Inline($EA/0/0/$FF/$FF);
  12. end;
  13.  
  14. Procedure WarmStart;
  15. begin
  16.    MemW[$40:$72] := $1234;
  17.    Inline($EA/0/0/$FF/$FF);
  18. end;
  19.  
  20.